home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / !Interfaces / Universal Interfaces 2.0a1 / PInterfaces / MIDI.p < prev    next >
Encoding:
Text File  |  1994-07-17  |  10.7 KB  |  348 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        MIDI.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Universal Interfaces 2.0a1.  ETO #15, MPW prerelease.  Sunday, July 17, 1994. 
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT MIDI;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __MIDI__}
  27. {$SETC __MIDI__ := 1}
  28.  
  29. {$I+}
  30. {$SETC MIDIIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33.  
  34. {$IFC UNDEFINED __ERRORS__}
  35. {$I Errors.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38.  
  39. {$IFC UNDEFINED __TYPES__}
  40. {$I Types.p}
  41. {$ENDC}
  42.  
  43. {$PUSH}
  44. {$ALIGN MAC68K}
  45. {$LibExport+}
  46.  
  47. CONST
  48.     midiToolNum                    = 4;                            {tool number of MIDI Manager for SndDispVersion call}
  49.     midiMaxNameLen                = 31;                            {maximum number of characters in port and client names}
  50. { Time formats }
  51.     midiFormatMSec                = 0;                            {milliseconds}
  52.     midiFormatBeats                = 1;                            {beats}
  53.     midiFormat24fpsBit            = 2;                            {24 frames/sec.}
  54.     midiFormat25fpsBit            = 3;                            {25 frames/sec.}
  55.     midiFormat30fpsDBit            = 4;                            {30 frames/sec. drop-frame}
  56.     midiFormat30fpsBit            = 5;                            {30 frames/sec.}
  57.     midiFormat24fpsQF            = 6;                            {24 frames/sec. longInt format }
  58.     midiFormat25fpsQF            = 7;                            {25 frames/sec. longInt format }
  59.     midiFormat30fpsDQF            = 8;                            {30 frames/sec. drop-frame longInt format }
  60.     midiFormat30fpsQF            = 9;                            {30 frames/sec. longInt format }
  61.     midiInternalSync            = 0;                            {internal sync}
  62.     midiExternalSync            = 1;                            {external sync}
  63. { Port types}
  64.     midiPortTypeTime            = 0;                            {time port}
  65.     midiPortTypeInput            = 1;                            {input port}
  66.     midiPortTypeOutput            = 2;                            {output port}
  67.     midiPortTypeTimeInv            = 3;                            {invisible time port}
  68. { OffsetTimes  }
  69.     midiGetEverything            = $7FFFFFFF;                    {get all packets, regardless of time stamps}
  70.     midiGetNothing                = $80000000;                    {get no packets, regardless of time stamps}
  71.     midiGetCurrent                = $00000000;                    {get current packets only}
  72.  
  73. {    MIDI data and messages are passed in MIDIPacket records (see below).
  74.     The first byte of every MIDIPacket contains a set of flags
  75.    
  76.     bits 0-1    00 = new MIDIPacket, not continued
  77.                      01 = begining of continued MIDIPacket
  78.                      10 = end of continued MIDIPacket
  79.                      11 = continuation
  80.     bits 2-3     reserved
  81.   
  82.     bits 4-6      000 = packet contains MIDI data
  83.    
  84.                   001 = packet contains MIDI Manager message
  85.    
  86.     bit 7         0 = MIDIPacket has valid stamp
  87.                   1 = stamp with current clock 
  88. }
  89.     midiContMask                = $03;
  90.     midiNoCont                    = $00;
  91.     midiStartCont                = $01;
  92.     midiMidCont                    = $03;
  93.     midiEndCont                    = $02;
  94.     midiTypeMask                = $70;
  95.     midiMsgType                    = $00;
  96.     midiMgrType                    = $10;
  97.     midiTimeStampMask            = $80;
  98.     midiTimeStampCurrent        = $80;
  99.     midiTimeStampValid            = $00;
  100. {    MIDI Manager MIDIPacket command words (the first word in the data field
  101.     for midiMgrType messages) }
  102.     midiOverflowErr                = $0001;
  103.     midiSCCErr                    = $0002;
  104.     midiPacketErr                = $0003;
  105.     midiMaxErr                    = $00FF;                        {all command words less than this value  are error indicators}
  106. { Valid results to be returned by readHooks }
  107.     midiKeepPacket                = 0;
  108.     midiMorePacket                = 1;
  109.     midiNoMorePacket            = 2;
  110. {     Driver calls: }
  111.     midiOpenDriver                = 1;
  112.     midiCloseDriver                = 2;
  113.  
  114.  
  115. TYPE
  116.     MIDIPacket = PACKED RECORD
  117.         flags:                    UInt8;
  118.         len:                    UInt8;
  119.         tStamp:                    LONGINT;
  120.         data:                    ARRAY [0..248] OF UInt8;
  121.     END;
  122.     MIDIPacketPtr = ^MIDIPacket;
  123.  
  124.     MIDIClkInfo = RECORD
  125.         sync:                    INTEGER;                                {synchronization external/internal}
  126.         curTime:                LONGINT;                                {current value of port's clock}
  127.         format:                    INTEGER;                                {time code format}
  128.     END;
  129.     MIDIIDRec = RECORD
  130.         clientID:                OSType;
  131.         portID:                    OSType;
  132.     END;
  133.     MIDIPortInfo = RECORD
  134.         portType:                INTEGER;                                {type of port}
  135.         timeBase:                MIDIIDRec;                                {MIDIIDRec for time base}
  136.         numConnects:            INTEGER;                                {number of connections}
  137.         cList:                    ARRAY [0..0] OF MIDIIDRec;                {ARRAY [1..numConnects] of MIDIIDRec}
  138.     END;
  139.     MIDIPortInfoPtr = ^MIDIPortInfo;
  140.     MIDIPortInfoHdl = ^MIDIPortInfoPtr;
  141.     MIDIPortInfoHandle = ^MIDIPortInfoPtr;
  142.  
  143.     MIDIPortParams = RECORD
  144.         portID:                    OSType;                                    {ID of port, unique within client}
  145.         portType:                INTEGER;                                {Type of port - input, output, time, etc.}
  146.         timeBase:                INTEGER;                                {refnum of time base, 0 if none}
  147.         offsetTime:                LONGINT;                                {offset for current time stamps}
  148.         readHook:                Ptr;                                    {routine to call when input data is valid}
  149.         refCon:                    LONGINT;                                {refcon for port (for client use)}
  150.         initClock:                MIDIClkInfo;                            {initial settings for a time base}
  151.         name:                    Str255;                                    {name of the port, This is a real live string, not a ptr.}
  152.     END;
  153.     MIDIPortParamsPtr = ^MIDIPortParams;
  154.  
  155.     MIDIIDList = RECORD
  156.         numIDs:                    INTEGER;
  157.         list:                    ARRAY [0..0] OF OSType;
  158.     END;
  159.     MIDIIDListPtr = ^MIDIIDList;
  160.     MIDIIDListHdl = ^MIDIIDListPtr;
  161.     MIDIIDListHandle = ^MIDIIDListPtr;
  162.  
  163. { 
  164.     
  165.          Prototype Declarations for readHook and timeProc
  166.         
  167.          extern pascal short myReadHook(MIDIPacketPtr myPacket, long myRefCon);
  168.          extern pascal void myTimeProc(long curTime, long myRefCon);
  169.         
  170.          MIDI Manager Routines
  171. }
  172.  
  173. FUNCTION MIDIVersion: NumVersion;
  174.     {$IFC NOT GENERATINGCFM}
  175.     INLINE $203C, $0000, 4, $A800;
  176.     {$ENDC}
  177. FUNCTION MIDISignIn(clientID: OSType; refCon: LONGINT; icon: Handle; name: ConstStr255Param): OSErr;
  178.     {$IFC NOT GENERATINGCFM}
  179.     INLINE $203C, $0004, 4, $A800;
  180.     {$ENDC}
  181. PROCEDURE MIDISignOut(clientID: OSType);
  182.     {$IFC NOT GENERATINGCFM}
  183.     INLINE $203C, $0008, 4, $A800;
  184.     {$ENDC}
  185. FUNCTION MIDIGetClients: MIDIIDListHandle;
  186.     {$IFC NOT GENERATINGCFM}
  187.     INLINE $203C, $000C, 4, $A800;
  188.     {$ENDC}
  189. PROCEDURE MIDIGetClientName(clientID: OSType; VAR name: Str255);
  190.     {$IFC NOT GENERATINGCFM}
  191.     INLINE $203C, $0010, 4, $A800;
  192.     {$ENDC}
  193. PROCEDURE MIDISetClientName(clientID: OSType; name: ConstStr255Param);
  194.     {$IFC NOT GENERATINGCFM}
  195.     INLINE $203C, $0014, 4, $A800;
  196.     {$ENDC}
  197. FUNCTION MIDIGetPorts(clientID: OSType): MIDIIDListHandle;
  198.     {$IFC NOT GENERATINGCFM}
  199.     INLINE $203C, $0018, 4, $A800;
  200.     {$ENDC}
  201. FUNCTION MIDIAddPort(clientID: OSType; BufSize: INTEGER; VAR refnum: INTEGER; init: MIDIPortParamsPtr): OSErr;
  202.     {$IFC NOT GENERATINGCFM}
  203.     INLINE $203C, $001C, 4, $A800;
  204.     {$ENDC}
  205. FUNCTION MIDIGetPortInfo(clientID: OSType; portID: OSType): MIDIPortInfoHandle;
  206.     {$IFC NOT GENERATINGCFM}
  207.     INLINE $203C, $0020, 4, $A800;
  208.     {$ENDC}
  209. FUNCTION MIDIConnectData(srcClID: OSType; srcPortID: OSType; dstClID: OSType; dstPortID: OSType): OSErr;
  210.     {$IFC NOT GENERATINGCFM}
  211.     INLINE $203C, $0024, 4, $A800;
  212.     {$ENDC}
  213. FUNCTION MIDIUnConnectData(srcClID: OSType; srcPortID: OSType; dstClID: OSType; dstPortID: OSType): OSErr;
  214.     {$IFC NOT GENERATINGCFM}
  215.     INLINE $203C, $0028, 4, $A800;
  216.     {$ENDC}
  217. FUNCTION MIDIConnectTime(srcClID: OSType; srcPortID: OSType; dstClID: OSType; dstPortID: OSType): OSErr;
  218.     {$IFC NOT GENERATINGCFM}
  219.     INLINE $203C, $002C, 4, $A800;
  220.     {$ENDC}
  221. FUNCTION MIDIUnConnectTime(srcClID: OSType; srcPortID: OSType; dstClID: OSType; dstPortID: OSType): OSErr;
  222.     {$IFC NOT GENERATINGCFM}
  223.     INLINE $203C, $0030, 4, $A800;
  224.     {$ENDC}
  225. PROCEDURE MIDIFlush(refnum: INTEGER);
  226.     {$IFC NOT GENERATINGCFM}
  227.     INLINE $203C, $0034, 4, $A800;
  228.     {$ENDC}
  229. FUNCTION MIDIGetReadHook(refnum: INTEGER): ProcPtr;
  230.     {$IFC NOT GENERATINGCFM}
  231.     INLINE $203C, $0038, 4, $A800;
  232.     {$ENDC}
  233. PROCEDURE MIDISetReadHook(refnum: INTEGER; hook: ProcPtr);
  234.     {$IFC NOT GENERATINGCFM}
  235.     INLINE $203C, $003C, 4, $A800;
  236.     {$ENDC}
  237. PROCEDURE MIDIGetPortName(clientID: OSType; portID: OSType; VAR name: Str255);
  238.     {$IFC NOT GENERATINGCFM}
  239.     INLINE $203C, $0040, 4, $A800;
  240.     {$ENDC}
  241. PROCEDURE MIDISetPortName(clientID: OSType; portID: OSType; name: ConstStr255Param);
  242.     {$IFC NOT GENERATINGCFM}
  243.     INLINE $203C, $0044, 4, $A800;
  244.     {$ENDC}
  245. PROCEDURE MIDIWakeUp(refnum: INTEGER; time: LONGINT; period: LONGINT; timeProc: ProcPtr);
  246.     {$IFC NOT GENERATINGCFM}
  247.     INLINE $203C, $0048, 4, $A800;
  248.     {$ENDC}
  249. PROCEDURE MIDIRemovePort(refnum: INTEGER);
  250.     {$IFC NOT GENERATINGCFM}
  251.     INLINE $203C, $004C, 4, $A800;
  252.     {$ENDC}
  253. FUNCTION MIDIGetSync(refnum: INTEGER): INTEGER;
  254.     {$IFC NOT GENERATINGCFM}
  255.     INLINE $203C, $0050, 4, $A800;
  256.     {$ENDC}
  257. PROCEDURE MIDISetSync(refnum: INTEGER; sync: INTEGER);
  258.     {$IFC NOT GENERATINGCFM}
  259.     INLINE $203C, $0054, 4, $A800;
  260.     {$ENDC}
  261. FUNCTION MIDIGetCurTime(refnum: INTEGER): LONGINT;
  262.     {$IFC NOT GENERATINGCFM}
  263.     INLINE $203C, $0058, 4, $A800;
  264.     {$ENDC}
  265. PROCEDURE MIDISetCurTime(refnum: INTEGER; time: LONGINT);
  266.     {$IFC NOT GENERATINGCFM}
  267.     INLINE $203C, $005C, 4, $A800;
  268.     {$ENDC}
  269. PROCEDURE MIDIStartTime(refnum: INTEGER);
  270.     {$IFC NOT GENERATINGCFM}
  271.     INLINE $203C, $0060, 4, $A800;
  272.     {$ENDC}
  273. PROCEDURE MIDIStopTime(refnum: INTEGER);
  274.     {$IFC NOT GENERATINGCFM}
  275.     INLINE $203C, $0064, 4, $A800;
  276.     {$ENDC}
  277. PROCEDURE MIDIPoll(refnum: INTEGER; offsetTime: LONGINT);
  278.     {$IFC NOT GENERATINGCFM}
  279.     INLINE $203C, $0068, 4, $A800;
  280.     {$ENDC}
  281. FUNCTION MIDIWritePacket(refnum: INTEGER; packet: MIDIPacketPtr): OSErr;
  282.     {$IFC NOT GENERATINGCFM}
  283.     INLINE $203C, $006C, 4, $A800;
  284.     {$ENDC}
  285. FUNCTION MIDIWorldChanged(clientID: OSType): BOOLEAN;
  286.     {$IFC NOT GENERATINGCFM}
  287.     INLINE $203C, $0070, 4, $A800;
  288.     {$ENDC}
  289. FUNCTION MIDIGetOffsetTime(refnum: INTEGER): LONGINT;
  290.     {$IFC NOT GENERATINGCFM}
  291.     INLINE $203C, $0074, 4, $A800;
  292.     {$ENDC}
  293. PROCEDURE MIDISetOffsetTime(refnum: INTEGER; offsetTime: LONGINT);
  294.     {$IFC NOT GENERATINGCFM}
  295.     INLINE $203C, $0078, 4, $A800;
  296.     {$ENDC}
  297. FUNCTION MIDIConvertTime(srcFormat: INTEGER; dstFormat: INTEGER; time: LONGINT): LONGINT;
  298.     {$IFC NOT GENERATINGCFM}
  299.     INLINE $203C, $007C, 4, $A800;
  300.     {$ENDC}
  301. FUNCTION MIDIGetRefCon(refnum: INTEGER): LONGINT;
  302.     {$IFC NOT GENERATINGCFM}
  303.     INLINE $203C, $0080, 4, $A800;
  304.     {$ENDC}
  305. PROCEDURE MIDISetRefCon(refnum: INTEGER; refCon: LONGINT);
  306.     {$IFC NOT GENERATINGCFM}
  307.     INLINE $203C, $0084, 4, $A800;
  308.     {$ENDC}
  309. FUNCTION MIDIGetClRefCon(clientID: OSType): LONGINT;
  310.     {$IFC NOT GENERATINGCFM}
  311.     INLINE $203C, $0088, 4, $A800;
  312.     {$ENDC}
  313. PROCEDURE MIDISetClRefCon(clientID: OSType; refCon: LONGINT);
  314.     {$IFC NOT GENERATINGCFM}
  315.     INLINE $203C, $008C, 4, $A800;
  316.     {$ENDC}
  317. FUNCTION MIDIGetTCFormat(refnum: INTEGER): INTEGER;
  318.     {$IFC NOT GENERATINGCFM}
  319.     INLINE $203C, $0090, 4, $A800;
  320.     {$ENDC}
  321. PROCEDURE MIDISetTCFormat(refnum: INTEGER; format: INTEGER);
  322.     {$IFC NOT GENERATINGCFM}
  323.     INLINE $203C, $0094, 4, $A800;
  324.     {$ENDC}
  325. PROCEDURE MIDISetRunRate(refnum: INTEGER; rate: INTEGER; time: LONGINT);
  326.     {$IFC NOT GENERATINGCFM}
  327.     INLINE $203C, $0098, 4, $A800;
  328.     {$ENDC}
  329. FUNCTION MIDIGetClientIcon(clientID: OSType): Handle;
  330.     {$IFC NOT GENERATINGCFM}
  331.     INLINE $203C, $009C, 4, $A800;
  332.     {$ENDC}
  333. FUNCTION SndDispVersion(toolnum: INTEGER): LONGINT;
  334.     {$IFC NOT GENERATINGCFM}
  335.     INLINE $203C, $0000, $0000, $A800;
  336.     {$ENDC}
  337.  
  338. {$ALIGN RESET}
  339. {$POP}
  340.  
  341. {$SETC UsingIncludes := MIDIIncludes}
  342.  
  343. {$ENDC} {__MIDI__}
  344.  
  345. {$IFC NOT UsingIncludes}
  346.  END.
  347. {$ENDC}
  348.